| 国画>>> |
| | |
<%
Dim years(30)
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from niandai where youhua=1 order by pid desc",conn,1,1
j=0
do while not rs1.eof
j=j+1
years(j)=rs1("niandai")
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
<%
For i= 1 To 22
%>
| <%=years(i)%> |
<%i=i+1%>
<%=years(i)%> |
<%
next
%>
|
<%
Dim rs1,i,j,m
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from paintings where xianshi=1 and youhua=0 order by pid desc",conn,1,1
j=0
do while not rs1.eof
m=rs1.recordcount
%>
| |
<% For i=1 To 3 %>
<%
j=j+1
If j>m Then
Else%>
" class="year"> " width=148 height=148 alt="">
<%=rs1("name")%>
|
<%
rs1.movenext
End If
%>
<%next%>
<%
loop
rs1.close
set rs1=nothing
%>
| |
|
|
|
